---
title: "Dashboard - Audiência de Custódia - Salvador/BA"
author: "William Sacramento"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    theme: cerulean
    logo: logo4.png
    social: menu
    source_code: embed
    navbar: 
      - { title: "Sobre mim", href: "https://linkedin.com/in/william-sacramento-a9605a219" }
---

```{r setup, include=FALSE}
library(rbokeh)
library(flexdashboard)
library(readxl)
library(readr)

dados <- read.csv("C:/UFBa/Projeto/dbleiseca/aud_sexo_bio - sexo_bio.csv")
dados1 <- read_xlsx("C:/UFBa/Projeto/dbleiseca/raca.xlsx")
dados2 <- read_delim("audiencia_idade.csv", 
    delim = ";", escape_double = FALSE, trim_ws = TRUE)
```

# Visualização 1 {data-icon="fa-signal" data-navmenu="Análises"}

## Column {.sidebar}

Dashboard inicial para apresentar os dados referentes à Audiência de Custódia na cidade de Salvador-Bahia. 

Fonte dos dados: 

## Column {data-width=600}

### Sexo Biológico

```{r}
library(ggplot2)
library(babynames)
library(dplyr)

# Plot
g <- ggplot(dados, aes(x = ano))+
  geom_col(aes(y=Homens), fill = 'cyan')+
  geom_col(aes(y=Mulheres), fill = 'pink')+
  ylab('Número de autuados')
g
```

## Column {data-width=400}

### Idade

```{r}
library(ggplot2)
library(babynames)
library(dplyr)

# Plot
g1 <- ggplot(dados2, aes(x = ano))+
  geom_col(aes(y=`18-29`), fill = 'blue')+
  geom_col(aes(y=`30-41`), fill = 'cyan')+
  geom_col(aes(y=`42-53`), fill = 'green')+
  geom_col(aes(y=maiores_60), fill = 'yellow')+
  ylab('Número de autuados')
g1
```

# Visualização 1 {data-icon="fa-signal" data-navmenu="Análises"}

## Column {data-width=600}

### Perfil Racial em 2019

```{r}
library(ggplot2)
library(babynames)
library(dplyr)

# Plot

g2 <- ggplot(dados1, aes(x=raca,y=quantidade))+
  geom_col(aes(fill = raca))
  
g2

```

# Tabela {data-icon="fa-table" data-navmenu="Análises"}

### Tabela
```{r}

dados

```